home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / scan.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1990-04-08  |  999 b   |  26 lines
  1. 100  REM CONVERSION TABLES FOR SQUARE MEASURES
  2. 105  WIDTH 80
  3. 110  REM IBM BASIC 
  4. 120  GOTO 170
  5. 130  PRINT STRING$(80,45):RETURN
  6. 140  CLS:FOR X=1 TO 10:PRINT:NEXT X:RETURN
  7. 150  PRINT:INPUT "Press >RETURN< (Q to quit) ",R$:IF R$="Q" OR R$="q" THEN 160 ELSE RETURN
  8. 160  GOSUB 140:GOSUB 130:PRINT TAB(38)"End.":GOSUB 130:RUN"FILES."
  9. 170  GOSUB 140:GOSUB 130
  10. 180  PRINT TAB(10)"This program consists of 5 subprograms that convert square measures"
  11. 190  GOSUB 130:GOSUB 150
  12. 200  GOSUB 140:PRINT TAB(10)"Menu:":GOSUB 130
  13. 210  PRINT 1,"Square inches versus square centimeters"
  14. 220  PRINT 2,"Square feet versus square meters."
  15. 230  PRINT 3,"Square miles versus square kilometers"
  16. 240  PRINT 4,"Square yards versus square meters."
  17. 250  PRINT 5,"Acres versus square feet":GOSUB 130
  18. 260  INPUT "Which?  ",WHICH:GOSUB 140:ON WHICH GOTO 270,350,430,520,600
  19. 270  PRINT TAB(10)"Convert:":GOSUB 130
  20. 280  PRINT 1,"Square inches to square centimeters"
  21. 290  PRINT 2,"Square centimeters to square inches":GOSUB 130
  22. 300  INPUT "Which?   ",WHICH:GOSUB 140:ON WHICH GOTO 310,330
  23. 310  INPUT "Number of square inches?   ",SQI:GOSUB 130:SQC=SQI*6.4516
  24. 320  PRINT SQI;" square inches = ";SQC;" square centimeters.":GOSUB 130:GOSUB 150:GOTO 200
  25. 330  INPUT "Number of square 
  26.